Những câu hỏi liên quan
MAI GIA BẢO 7A3
Xem chi tiết
Kim Anh
Xem chi tiết
Kim Anh
21 tháng 2 2022 lúc 14:35

Cái này là chương trình Python nha mọi người

Bình luận (0)
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:39

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Huỳnh Khôi Nguyên
3 tháng 5 2021 lúc 11:37

ae nào giúp mình với ạ'

 

Bình luận (0)
Thanh huyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 17:08

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

Bình luận (1)
Minh Lệ
7 tháng 3 2023 lúc 17:36

FOR..DO

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0;

For i:=1 to N do if i mod 2=0 then S:=S+i;

write('S = ',S);

readln

end.

Bình luận (0)
Minh Lệ
7 tháng 3 2023 lúc 23:02

While..do

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0; i:=2;

while i<=n do 

begin

s:=s+i;

i:=i+2;

end;

write('S = ',S);

readln

end.

Bình luận (0)
Ngọc Tú
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 19:46

var n, s, i: integer;

begin

       write('Nhap n = ');

       readln(n);

       s := 0;

       i := 3;

       while i <= n do

       begin

              s := s + i;

              i := i + 3;

       end;

       writeln('Tong la ', s);

       readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:31

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  
  for i := 3 to n step 1 do
  begin
    if i mod 2 = 0 then
      S := S + i;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

Bình luận (0)
Quý Phạm
Xem chi tiết
Kiều Vũ Linh
20 tháng 3 2023 lúc 12:22

Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s + 2*i;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)
Thảo My Lê Phương
Xem chi tiết
Kiều Vũ Linh
29 tháng 3 2022 lúc 8:33

var i,n,s:integer;

begin

write('nhap n = ');readln(n);

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

Bình luận (0)
Thu Tuyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:23

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=1; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

Bình luận (0)
Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:30

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + i;
    i := i + 2;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

Bình luận (0)
Thanh huyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 13:34

*for..do

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/sqr(i);

write('S= ',s:6:2);

readln

end.

Bình luận (0)
Minh Lệ
7 tháng 3 2023 lúc 21:30

*while..do

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

Bình luận (0)